﻿Imports System.Data.OleDb

Public Class AquariumDetail
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If IsPostBack = False Then
            detailViewDataBind()
            commentViewDataBind()
        End If
    End Sub

    Private Sub detailViewDataBind()
        Dim gateway As New AquariumGateway()
        detailView.DataSource = gateway.FindByID(CULng(Request.Params("ID")))
        detailView.DataBind()
    End Sub

    Private Sub commentViewDataBind()
        Dim gateway As New CommentGateway()
        commentView.DataSource = gateway.FindByID(CULng(Request.Params("ID")))
        commentView.DataBind()
    End Sub
End Class